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Avant-Propos 


Les jeux présentés dans ce livre utilisent toutes les possibilités de 
votre Oric : son, couleurs, caractères graphiques définissables par 
l'utilisateur. 

Pour cette raison, ces programmes ne fonctionnent que sur l'ordi- 
nateur pour lequel ils ont été conçus et sont difficilement adaptables 
à des matériels différents. 

Au-delà du jeu lui-même, l'étude de ces programmes vous ensei- 
gnera de nombreuses techniques de programmation particulières à 
votre Oric qui vous seront très utiles pour développer vos propres 
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INONDATION 


Le toit fuit et vous n'avez qu'un seau. Essayez d'attraper les gout- 
tes en déplaçant le seau à l’aide des touches <P> et <E>. Il tom- 
bera trente gouttes. Essayez d'en attraper le plus possible afin de ne 
vas avoir à appeler les pompiers. 


10 REM INONDATION 
20 REM (C) Peter Shaw 

30 REM 

40 GOSUB 9000:RE=0 

50 GOSUB 8000 

60 GOSUB 7000 

70 P=INT(RND(1)#37)+1:D=D+1 

80 FOR L=é6 TO 22:PLAY O0,1,1,L%3 

90 IF KEY$="E" AND V>1i THEN V=V-2 

100 PLOT V,24," )D# ":PLOT V,25," +, 
110 PLOT P,L," “:PLOT P,L+1,"X&":PLOT P 
L+2,""0 

120 IF L+3=24 AND (V+1=P+1 OR V+2=P+1 OR 
V+3=P+1) THEN SC=SC+1:D$= 

D$+"-" 

130 IF KEY$="P" AND V£36 THEN V=V+1 


8 JEUX EN BASIC SUR ORIC 


140 DR$=LEFTS (DR$, (30-D))+" " 
150 PLOT 0,0,CHR#(4)+DR#:NEXT L 

160 PLOT P,L," ":PLOT P,L+1,"  “:PLOT 1 
,26,D# 

170 IF D=30 THEN 190 

180 GOTO 70 

190 PLOT 5,16,"TERMINE" 

200 PRINT:PRINT: PRINT: PRINT: PRINT: PRINT: 
PRINT 

210 PRINT"VOUS RECUEILLEZ ";SC:" GOUTTES 
220 IF SC>RE THEN RE=SC 

230 PRINT:PRINT:PRINT 

240 PRINT"RECORD ACTUEL:"3;RE 

250 PRINT:PRINT:PRINT 

260 WAIT 500:PRINT"TAPEZ UNE TOUCHE POUR 


JOUER" 
270 IF KEY$<>"" THEN 270 
280 GET À$ 


290 GOTO 40 
3500 REM HHHHHEHIEMIMM MM MEN RENE EE EE EEE 
7000 CLS 

7010 PRINT 

7020 PRINT'SHSHSHSHSNSNSHSHSNENSHSHIATHS 
HEHSHSHS" 

7030 PRINT'HEHSHSHSNEHSHSHSAHSHSHSHSHSHSE 
SHSHIHEH" 

7040 PRINT'SHSHSHSHSHSHSHTHSHSHSHSNSHIHS 
HSHSHSHS" 

7050 PRINT'HSHSHSHSHSHSHSHSNSHSHSHSHSHSH 
SHSHSHIH" 

7060 PLOT 0,1,1:PLOT 0,2,1:PLOT O0,3,1:PL 
OT 0,4,1 

7070 PLOT 0,24,3:PLOT 0,25,3:RETURN 

8000 PAPER O:INK 6:CLS 

8010 SC=0:V=20: D=0: D$="" 

BO20 DR$=" 


INONDATION 


8030 RETURN 

89040 REM H#HHARÉHEHÉIEEEEREMHMREUNÉEMIHN ER 
9000 RESTORE 

9010 PRINT CHRS# (17) ;: CHRS (6) 

9020 FOR A=(46080+(ASC("#")#9)) TO (4608 
O+(ASC("-") #8) +7) 

9030 READ US:POKE A,US:NEXT:RETURN 

9040 DATA 63,63,63,63,63,63,0,0 

9050 DATA 62.,62,62,62,62,62,0,0 

9060 DATA 0,0,0,0,0,0,1,3 

9070 DATA 0,0,0,0,0,0,32,48 

9080 DATA 7,7,15,15,7,73350 

9090 DATA 56,56,60,60,56,56,48,0 

9100 DATA 0,0,63,31,47,55,59,60 

9110 DATA 0,0,63,62,62,61,60,7 

9120 DATA 31,31,31,31,15,15,15,15 

9130 DATA 62,62,62,62,60,6403%60,60 

9140 DATA 12,12,30,63,63,30,0,0 
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Ce programme est le plus long de ce livre. Il utilise 25K de mémoire. 
Dans cette aventure il y a cinq niveaux. Elle repose sur le mystère du 
Château de Lac. Voici d'abord quelques détails sur le château. Il y a 
longtemps, dans la contrée de Mythrad, le roi Hoptos construisit de 
ses propres mains un château qu'il appela le Château de Lac. Durant 
plusieurs années, la région fut prospère et le peuple vécut heureux. 
Un jour, après un grand banquet le roi fut assassiné par l'ecclésiasti- 
que du château, De Borg. Le château tomba en ruine, et peu à peu 
d'étranges créatures y élirent domicile, des Golems, des Norgs, des 
mutants. De récentes rumeurs font état d’une certaine activité dans 
le château. Les paysans après la découverte de cadavres et après avoir 
vu d’étranges ombres sur les remparts n’osent plus aller aux champs. 
Les villageois font appel à vous pour chasser le démon qui règne dans 
le château. Si vous réussissez, vous repartirez avec tous les trésors 
que vous aurez collectés à l'intérieur du château. 


Les commandes sont : 


N = Nord 

E = Est 

S = Sud 

O = Ouest 
C = Combat 
F = Fuite 
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10 REM LE MYSTERE DU CHATEAU 

20 REM DE PETER SHAW ET MARTIN GYNGELL 
40 GOSUB 41000 

950 CLS 

60 IF J(1)=0 AND J(2)=0 AND J(3)=0 THEN 
GOTO 50000 

70 PRINT N#:;", VOS QUALITES SONT:" 

75 PRINT 

80 IF J(1)>0 THEN PRINT" SAGESSE: "s;J(1 
) 


90 IF J(2)>0 THEN PRINT" INGENIOSITE: 
"5 J (2) 

100 IF J(3)>0 THEN PRINT" DEXTERITE:" 
5J (3) 


110 PRINT:PRINT:PRINT"VOUS AVEZ AUSSI ‘"; 
MO;" PIECES D'OR" 

120 GOSUB 1000:GOSUB 1000 

130 GOSUB 2000°NEXT PIECE 

140 M1=O:IF Z>1 THEN IF RND(1)>.5 THEN G 
OSUB 7000 

150 GOSUB 1000 

160 GOSUB 3000 

170 GOSUB 1000 

180 GOTO 50 

190 REM HENRI MEME TEEN 
1000 REM SOUS PROGRAMME PAUSE 

1010 IF RND(1)>.5 THEN GOTO 1500 

1020 FOR A=1 TO 10 

1030 PLAY 0,1,1,100 

1040 WAIT A*xS5 

1050 NEXT 

1060 PRINT 

1070 RETURN 

1500 FOR A=7 TO 1 STEP -1 

1510 INK À 

1520 WAIT 10 

1530 NEXT 

1540 PRINT:INK O 
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1550 
1560 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
O0 
2240 
2250 
3000 
5010 
3020 
N$ 
3025 
3030 
3040 


RETURN 


REM HRHHHERMHENRENEX HÉRIENIRNMRRNX 


IF Z=1 THEN 


IF Z=2T 


HEN 


IF Z=3 THEN 


IF Z=4T 


HEN 


IF Z=S5 THEN 
IF Z=6 THEN 
IF Z=7 THEN 


IF Z=8 T 


HEN 


IF Z=9 THEN 


IF Z=10 
IF Z=11 
IF Z=12 
IF Z=13 
IF Z=14 
IF Z=15 
IF Z=16 
IF Z=17 
IF Z=18 
IF Z=19 
IF Z=20 
IF Z=21 
IF Z=22 
IF Z=22 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


THEN 8000 


IF B(Z,6)<2>0 


RETURN 


REM HERMIONE MEME MEME MEME EME EME EE DEEE NE 


10000 
11000 
12000 
13000 
14000 
15000 
16000 
17000 
18000 
19000 
20000 
21000 
22000 
23000 
24000 
25000 
26000 
27000 
28000 
29000 
30000 
31000 


THEN G=B(Z,6) : GOSUB 90 


REM ENTREE DEBUT ACTION 
D=4:1F B(Z,6)=0 THEN D=1 
PRINT'"que faites vous maintenant "; 


INPUT Z$ 
IF Z$="0 


" THEN STOP 
IF D=4 AND LEFT#(Z$#,1)<2>"C" THEN D= 
O:GOTO 3250 
3050 IF LEFT$(Z$,1)="C" 


THEN GOTO 3230 
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3055 LES=LEFTS(Z$,1) | 

3060 IF LE$="N" AND B(Z,1)=0 THEN PRINT, 
"PAS DE SORTIE":G0TO0 3020 

3070 IF LE$="S" AND B(Z,2)=0 THEN PRINT, 
"SUD IMPOSSIBLE ":GOTO 3020 

3080 IF LE$="E" AND B(Z,3)=0 THEN PRINT, 
"EST ?,SOYEZ SERIEUX":GOTO 

35020 

3090 IF LE#$="0O" AND B(Z,4)=0 THEN PRINT, 
"PAS DE SORTIE QUEST'":GO0OTO 

35020 

3100 IF LE$="N" THEN Z=B(Z,1):RETURN 
3110 IF LE$="S" THEN Z=B(Z,2) : RETURN 
3120 IF LE$="E" THEN Z=B(Z,3):RETURN 
3150 IF LE$="0" THEN Z=B(Z,4) :RETURN 

3140 IF LE$<>"F" THEN RETURN 

3250 IF B(Z,6)=0 THEN PRINT'"il n'y a rie 

n a combattre":G0OTO 3020 

3240 IF LEFT$(Z$,1)="F" THEN D=INT (RND(1 
) #2) 

3245 IF D=1 THEN PRINT'"quelle direction 
?7":GO0OT0O 3025 

3250 IF D=0 THEN PRINT"'NON!,vous devez c 
ombattre" 

3260 PRINT:PRINT'"quelle qualite utilisez 
vous 7?" 

35270 0=B(Z,6) 

3280 INPUT Z$ 

3290 LE$S=LEFT#(Z#$,1)2:1F LE$<>"S" AND LE$ 
<>"I" AND LE$<>"D" THEN 3528 

O 

3300 IF LE$="S" THEN HU=J(1):MN=M(0,2) 
3310 IF LE$="I1" THEN HU=J(2) : MN=M(0O,3) 

3320 IF LE$="D" THEN HU=J(35):MN=M(G,4) 
3330 DF=ABS (HU-MN) 

3340 PRINT'"la difference est “;DF 

3350 IF HU>MN THEN PRINT'et vous avez 1 
avantage. " 
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3360 IF MN>HU THEN PRINT'et il a l'avant 


age. 


5370 CT=INT (RND(1) #46) +1 
3580 PRINT'"ce combat a une valeur de ";C 


T 


3390 RT=INT (RND (1) #DF) +1 


3400 GOSUB 1000 


5410 RH=ABS (RT-HU) 

5420 RM=ABS (RT-—-MN) 

3450 IF RH>RM THEN 3500 

35440 PRINT :PRINT'"vous etes battu!" 


35450 IF LE$="S" 
):J(1)=J(1)-CT 
5460 IF LE$="1" 
):J(2)=J(2) -CT 
5470 IF LE$="D" 
):J(3)=J(3) -CT 
3480 GOTO 3600 
5490 REM 

353500 PRINT'"vous 
S3510 IF LE$="S" 
2)=M(Q,2)-CT 
35520 IF LE$="1" 
3)=M(0,3)-CT 
3530 IF LE$="D" 
4)=M(Q,4)-CT 
3600 GOSUB 1000 


THEN M(G,2)=(M(0,2)+2#CT 
THEN M(Q,3)=(M(Q,3)+2#xCT 


THEN M(0,4)=(M(Q,4)+2#CT 


l'avez eu!" 
THEN J(1)=J(1)+2*CT:M(0, 


THEN J(2)=J(2)+2*CT:M(0, 


THEN J(3)=J(3)+2#CT:M(0, 


3610 PRINT'"apres cette bataille vos qual 


ites sont" 


3620 PRINT, "Sagesse s"sJ(1) 
5630 PRINT,'"Ingeniosite :";J(2) 
35640 PRINT,"Dexterite :",J(3) 


3645 PRINT 


3650 PRINT'"'Et celles du "; 

3660 IF G=1 THEN PRINT'"De Borg" 
3670 IF G=2 THEN PRINT'"G6olem" 
35680 IF G=3 THEN PRINT'"Norgh" 
3690 IF G=4 THEN PRINT"Stralph" 
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3700 
3701 
35702 
35703 
3704 
3710 
3720 
35730 
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IF G=5 THEN PRINT'"Geant" 

IF G=6 THEN PRINT'"Cannibale" 
IF GQ=7 THEN PRINT'Elfe" 

IF G=8 THEN PRINT'"Hartnelli" 
IF G=9 THEN PRINT'"Dragon"“ 
PRINT'"sont" 

PRINT, "Sagesse s":M(Q,2) 
PRINT,'"Ingeniosite :";:M(0,3) 


3740 PRINT,"Dexterite :":M(Q,4) 


35750 
3760 


GOSUB 1000 
PRINT:PRINT"'TAPEZ UNE TOUCHE POUR C 


ONTINUER" 


3770 
35780 
3790 
3800 
3810 
35820 
3830 
3840 
7000 
7010 
7020 
7030 
7040 
7050 
7100 
7110 


GET T$ 

GOSUB 1000:CLS 

K=1+INT(RND(1)#19) 

IF K=Z OR B(K,6)<>0 THEN 3790 
B{K,6)=B(Z,6) 

B(Z,6)=0 

IF RND(1)2>.5 THEN RETURN 

REM HEIN MEME DE DE DE DE DE DEEE JE DEEE 
REM CONTENU JEU 

IF B(Z,6)<>0 THEN M1=1:RETURN 
PRINT :RM=INT (RND (1) #2) +1 

ON RM GOSUB 7100,7200 

GOSUB 1000 

RETURN 

CH=CH+1:1IF CH=S THEN RETURN 
PRINT'"IL y a un coffre avec un gros 


#"; CH 


7120 
7130 
7140 
7150 
7160 
7170 
7200 
7210 
7220 


PRINT:PRINT'"L'ouvrez vous (O/N)'"'3: 
GOSUB 7600 

IF Z$="N" THEN RETURN 
J1=INT(RND(1)#2)+1:GOSUB 1000 

ON Ji GOSUB 40000,40100 

RETURN 

IF PT=i1 THEN GOTO 7020 

PT=1 

PRINT"IL y a un flacon avec ecrit d 


essus” 
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7230 PRINT'"un etrange message." 

7240 PRINT:PRINT'"Buvez vous cette potion 
7" , LL (O/N) "” 

7250 GOSUB 7600 

7260 IF Z$="N" THEN RETURN 

7270 GOSUB 1000 

7280 RI1=RND(1):1IF R1>.5 THEN PRINT"Votre 
sagesse a augmente de 2" 

7285 IF R1>.5 THEN J(1)=J(1)+2: RETURN 

7290 PRINT'"Vous avez ete endormi." 

7300 GOSUB 1000 

7310 J(2)=J(2)-4 

7320 RETURN 

7600 IF KEY$<>"" THEN 7600 

7605 GET Z$ 

7610 PLAY 1,0,1,100 

7620 PLAY 1,0,2,100 

7640 RETURN 

7650 REM #2 MEMEMEUMEMEMEDEUNEN MEME MEME DEEE DEN ENEN 

8000 REM FIN DE PARTIE 

8020 PRINT 

8030 PRINT'"Ce combat necessitera toutes" 

8040 PRINT'"vos qualites,sagesse,ingenios 
ite et," 

8050 PRINT'dexterite. 11 faut un total d 

e dix" 

80860 PRINT'"points au moins pour esperer 
partir" 

8070 GOSUB 1000 

8080 IF MO>0 THEN PRINT"Vous avez ";MO;" 
pieces d'or" 

8090 GOSUB 1000 

8100 PRINT'"Gualites de 1'‘ogre :" 

8110 PRINT 

8120 PRINT, "SAGESSE s:":M(9,2) 

8130 PRINT,"INGENIOSITE :"5M(9,3) 

8140 PRINT,"DEXTERITE :";:M(9,4) 

8150 PRINT 
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8160 PRINT"Vos qualites s" 
8170 PRINT 
8180 PRINT, "SAGESSE s"sJ(1) 


8190 PRINT,"INGENIOSITE s"sJ(2) 

8200 PRINT,"DEXTERITE :"3;J(3) 

8210 PRINT 

8220 GOSUB 1000: WAIT 50 

8230 IF MO<100 THEN 8370 

8240 PRINT"Vous pouvez acheter des quali 

tes pour" 

8250 PRINT"10 pieces d'or chacune" 

8260 PRINT:PRINT"Si vous desirez acheter 
des qualites," 

8270 PRINT'"tapez l'initial de la qualite 
desiree" 

8280 PRINT'"suivie du nombre de points. T 
apez ‘N°'" 

8290 PRINT'"si vous ne voulez pas en ache 
ter." 

8300 INPUT'"Qualite ";:E$:1F E$="N" THEN 8 
370 

8310 INPUT"Somme ";: AM:1IF MO-(AM#100)<1 T 

HEN 8510 

8320 IF E$="S" THEN J(1)=J(1)+AM 

8530 IF Ef$="I1" THEN J(2)=J(2)+AM 

8340 IF E$="D" THEN J{(3)=J(35)+AM 

83550 PRINT,'"SAGES, :";J(1):PRINT,'"INGENIO: 

SITE :";9J(2) 

83555 MO=MO- (AM#100) 

83640 PRINT,"DEXTERITE :";J(3):PRINT:FRIN 

T, "ARGENT "MO"PIECES D'OR" 

8370 CLS:PRINT'"Preparez vous a l'ultime 

combat..." 

83580 PRINT:PRINT"Tapez une touche pour € 

ontinuer..." 

8390 GET KE# 

8400 GOSUB 1000:CLS 

8410 PRINT,"Sagesse":MH=J(1):MG=-=M(9,2) 
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8420 PRINT:PRINT'"VOUS "sMHs"  L'OGRE ":;:M 
G 


8450 DF=ABS (MH-MG6) : PRINT'"'LA DIFFERENCE E 
ST "sDF 
8440 IF MH>MG THEN PRINT'en votre faveur 


8450 IF MG>MH THEN PRINT'"'en faveur de 1° 
ogre." 

8460 GOSUB 1000:CT=INT (RND(1) #((MH+MG) /2 
))+1 

8470 PRINT:PRINT'"Ce combat a un valeur d 
e "3CT 

8480 RT=INT (RND (1) #DF) +1 

8490 GOSUB 1000 

8500 RH=ABS (RT-MH) 

8510 RM=ABS (RT-M6) 

9515 IF RH>RM THEN PRINT'"VOUS GAGNEZ":60 
T0 85530 


8520 PRINT"'DESOLE, VOUS PERDEZ! !":MH=MH- 
CT:J(1)=0:IF MH>O THEN J(1) 
=MH 


8530 PRINT'"'tapez RETURN pour continuer": 
GET KES 

8540 GOSUB 1000:CLS 

8545 PRINT'"Maintenant 1'‘Ingeniosite" 
8546 MH=J (2) :MG=M(9,3) 

8550 PRINT:PRINT"'VOUS ":MH3"  L'OGRE ";M 
G 

8560 DF=ABS (MH-MG) : PRINT"'LA DIFFERENCE E 
ST ";:DF 

8570 1F MH>MG THEN PRINT'en votre faveur 
8580 IF MG>MH THEN PRINT'en faveur de 1° 
ogre." 

8590 GOSUB 1000:CT=INT (RND (1) # ( (MH+MG) /2 
))+1 

8600 PRINT:PRINT'"Ce combat a une valeur 
de ":;CT 
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8610 RT=INT (RND (1) #DF) +1 

8620 GOSUB 1000 

8630 RH=ABS (RT-MH) 

8640 RM=ABS (RT-MG) 

8650 IF RH>RM THEN PRINT"VOUS GAGNEZ" :60 
TO 8670 

8660 PRINT"DESOLE, VOUS PERDEZ !":MH=MH-C 
T:J(2)=0:1IF MH>O0 THEN J(2)=MH 


8670 PRINT"Tapez RETURN pour continuer": 
GET KE$ 

8680 GOSUB 1000:CLS 

8690 PRINT'"Maintenant Dexterite" 

8695 MH=J(3) :MG=M(9,4) 

8700 PRINT:PRINT"VOUS “"sMHs"  L'OGRE ":;M 
G 

8710 DF=ABS (MH-MG) :PRINT"'LA DIFFERENCE E 
ST “";:DF 

8720 IF MH>MG THEN PRINT'"en votre faveur 


8730 IF MG>MH THEN PRINT'en faveur de 1° 
ogre" 

8740 GOSUB 1000:CT=INT (RND (1) #((MH+MG) /2 
))+1 

8750 PRINT:PRINT"Ce combat a une valeur 

de ":;CT 

8760 RT=INT (RND(1)#DF)+1 

8770 GOSUB 1000 

8780 RH=ABS (RT-MH) 

8790 RM=ABS (RT-M6) 

8800 IF RH>RM THEN PRINT'"VOUS GAGNEZ ":60 
TO 8820 

8810 PRINT"DESOLE, VOUS PERDEZ! !":MH=MH- 
CT:J(3)=0:IF MH>O THEN J(353)=MH 


8820 PRINT"Tapez RETURN pour continuer": 
GET KE$ 
8825 A1=J(1):B1=J(2):C1=J (3): G6O0OSUB 1000 


LE MYSTÈRE DU CHATEAU 21 


8850 PRINT'"A la fin du dernier combat" 

8840 PRINT'"vous avez:" 

8850 PRINT, "SAGESSE s"'sAi 

8860 PRINT,"INGENIOSITE :";B1 

8870 PRINT,"DEXTERITE :";C1 

8880 PRINT 

8890 PRINT"TOTAL:";:A1+B1+C1 

8900 IF A1+B1+C1>9 THEN PRINT"Oh Hero de 
la nuit et des tenebres" 

8920 IF A1i+B1+C1>9 THEN PRINT'"Vous avez 

gagne cette dure bataille!! 


8925 IF A1i+B1+C1>9 THEN PRINT'"Je vous ar 

me chevalier ":;N$:GOTO 8980 

8930 PRINT"Vous avez combattu bravement 

mais pas" 

8940 PRINT"'assez pour esperer partir.Mai 

ntenant" bi 

8950 PRINT"1'ogre va vous devorer." 

8960 GOSUB 1000 

8970 END 

8980 PRINT:PRINT"Vous partez avec "; M0 

8990 PRINT'"'pieces d'or.":END 

9000 REM SOUS PROGRAMME MONSTRE 

9010 IF G=1 THEN GOSUB 9100 

9020 IF G=2 THEN GOSUB 9200 

9030 IF G=3 THEN GOSUB 9300 

9040 IF G=4 THEN GOSUB 9400 

9050 IF G=5 THEN GOSUB 9500 

9051 IF O=6 THEN GOSUB 9600 

9052 IF G=7 THEN GOSUB 9700 

9053 IF G=8 THEN GOSUB 9800 

9060 RETURN 

9100 REM DE BORG 

9110 PFRINT'Attention!!, dans cette piece 
il y a" 

9120 PRINT'"1'infame De Borg" 

9130 PRINT 

9140 GOSUB 9900 
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9190 
9200 
9210 


9220 
9290 
9300 
9310 


RETURN 
REM GOLEM 
PRINT"IL1 y a un Golem dans la piece 


GOSUB 9900 

RETURN 

REM NORGH 

FRINT'"'Silence, il y a un Norgh quel 


que part" 


9320 
9330 
93590 
9400 
9410 
9420 
9490 
9500 
9510 
9520 
9590 
9600 
9610 
e ici 
9650 
9890 
9700 
9710 
gean 
9720 
9730 
9790 
9800 
9810 
pire 
9820 
98530 
9890 
9900 


PRINT'"dans cette piece" 

GOSUB 9900 

RETURN 

REM STRALPH 

PRINT"'Ici se cache un Stralph" 
GOSUB' 7900 

RETURN 

REM GEANT 

PRINT"Vous etes devant un Geant." 
GOSUB 9900 

RETURN 

REM CANNIBALE 

PRINT'"'Au secours, il y a un cannibal 
GOSUB 9900 

RETURN 

REM ELFE 

PRINT"Gros probleme, il y a un Elfe 
t ” 

PRINT'"dans la piece avec vous" 
GOSUB 9900 

RETURN 

REM HARTNELLI 

PRINT"Ah! il y a un Hartnelli de la 
PRINT'"espece dans cet endroit" 
GOSUB 9900 

RETURN 

REM AFFICHAGE 
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9910 PRINT'"Ses qualites sont: 

9920 PRINT 

9930 PRINT, "SAGESSE :":M(Q,2) 

9940 PRINT,"INGENIOSITE :";:M(0,3) 

9950 PRINT,"DEXTERITE 3:";:M(G,4) 

9960 PRINT 

9970 PRINT"Vos qualites a 

9980 PRINT,"SAGESSE :";J(1):PRINT,"INGEN 
IOSITE :"3:J(2) 

9990 PRINT,"DEXTERITE :";J(3):RETURN 
10000 REM PIECE 1 

10010 CLS 

10020 PRINT"Vous etes dans le salon." 
10030 PRINT 

10040 PRINT"'IL y a une table dans le coi 
n LL 

10050 PRINT'"'Nord-Est.Il y a une sortie a 
u “ 

10060 PRINT'"Nord et il y a un escalier q 
ui monte" 

10070 PRINT'"'A l'Est. À l'Ouest une pile 
de briques" 

10080 PRINT'"'ou il devait y avoir un esca 
lier." 

10090 PRINT “Au Sud, se trouve une vieil 
le herse" 

10100 PRINT'"en ruine a jamais scellee au 
x pierres" 

10120 RETURN 

11000 REM PIECE 2 

11010 CLS 

11020 PRINT'"Vous etes dans la cour d'hon 
neur “ 

11030 PRINT 

11040 PRINT"Au Nord se trouve l'‘entree d 
u “ 

11050 PRINT'"Chateau de Lac, a l'Est et a 


11060 PRINT"1 ‘Ouest des dependances en b 
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ois et au" 

11070 PRINT'"Sud la grille de la cour“ 
11080 RETURN 

12000 REM PIECE 3 

12010 CLS 

12020 PRINT"Vous etes dans la salle des 
banquets." 

12040 PRINT 

12050 PRINT'"Au Nord il y a une grande ta 
ble en L" 

12060 PRINT'"couverte de fruits exotiques 
et de" 

12070 PRINT'"bouteilles de vin des meille 

urs crus." 

12080 PRINT'"Autour de la table des chais 

es dont" 

12090 PRINT'"le dossier est orne d'un dia 

mant." 

12100 PRINT'"Dans le coin Sud-Est de la p 
iece" 

12110 PRINT'"se trouve une petite fontain 

e ou" 

12120 PRINT'"beaucoup de personnes sont m 
ortes" 

12130 PRINT'en essayant de boire son eau 
12140 PRINT'"A 1 ‘Ouest et au Sud, il y a 

une sortie" 

12150 PRINT'et a l'Est, il y a un escal 
ier qui monte au dessus" 


12170 RETURN 

13000 REM PIECE 4 

13010 CLS 

13020 PRINT'"Vous etes dans la cuisine du 
chateau. " 

15303530 PRINT'"I]I y a de la nourriture par 

terre et" 
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13040 PRINT'"par terre sont dessines des 
signes." 

13050 PRINT 

13060 PRINT"IL1 y a des sorties au Nord e 

t l'Est" 

13080 RETURN 

14000 REM PIECE 5 

14010 CLS 

14020 PRINT"Vous etes maintenant dans la 
reserve" 

14030 PRINT 

14040 PRINT'"IL1 fait tres sombre et vous 

devez" 

14050 PRINT'"'sortir par le Sud" 

14060 RETURN 

15000 REM PIECE 6 

15010 CLS 

15020 PRINT"Vous etes sur les rempartsSu 
d-Est" 

15030 PRINT 

15040 PRINT"Vous pouvez apercevoir 1l'ent 

ree" 

15050 PRINT'et les dependances en bois." 
15070 PRINT'"il y a une sortie a l'Est et 
un LL] 

15080 PRINT'escalier qui descend a 1 '‘Oue 
st “ 

15090 RETURN 

16000 REM PIECE 7 

16010 CLS 

18020 PRINT'"Vous etes dans la tour Sud-E 
st." 

16030 PRINT 

16040 PRINT"IL y a des sorties au Nord e 
t ” 

16050 PRINT'"a 1 ‘Ouest. " 

16060 RETURN 

17000 REM PIECE 8 
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17010 CLS 

17020 PRINT'"Vous etes sur les remparts E 

st : ut 

17030 PRINT 

17040 PRINT"Vous apercevez 1'‘'entree et 1 
es ur 

17050 PRINT'"dependances en bois ainsi qu 

e la" 

17060 PRINT'grille d'entre." 

17070 PRINT'"IL y a des sorties au Sud et 
au Nord." | 

17080 RETURN 

18000 REM PIECE 9 

18010 CLS 

18020 PRINT'"Vous etes dans la tour Nord- 

Est." 

18050 PRINT 

18040 PRINT'"IL y a des sorties au Sud et 
a l'Ouest" 

18060 RETURN 

19000 REM PIECE 10 

19010 CLS 

19020 PRINT'"Vous etes sur les remparts N 
ord." 

19030 PRINT 

19040 PRINT"Vous pouvez voir l'’entree ai 
nsi que" 

19050 PRINT'Iles dependances de bois et 1 
a grille" 

19060 PRINT'"d'entree du chateau." 

19070 PRINT'"IL y a des sorties a l'Est 
et a 1 ‘Ouest " 

19080 RETURN 

20000 REM PIECE 11 

20010 CLS 

20020 PRINT'"Vous etes dans la tour Nord- 
Quest." 

20030 PRINT 
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20040 PRINT'"IL y a des sorties au Sud et 
a l'Est." 

20060 RETURN 

21000 REM PIECE 12 

21010 CLS 

21020 PRINT"Vous etes sur les remparts 0 

uest." 

21030 PRINT 

21040 PRINT"Vous apercevez 1l'entree et 1 

es “ 

21050 PRINT'"dependances en bois ainsi qu 

e 

21060 PRINT"]1 ‘entree. " 

21070 PRINT"'IL y a des sorties au Nord e 

t au Sud" 

21080 RETURN 

22000 REM PIECE 135 

22010 CLS 

22020 PRINT'"Vous etes dans la tour Sud-0 

uest." 

220530 PRINT 

22040 PRINT"IL y a des sorties au Nord e 
t a l'Est" 

22060 RETURN 

23000 REM PIECE 14 

23010 CLS 

23020 PRINT"Vous etes sur les remparts S 

ud-Ouest. " 

23030 PRINT 

23040 PRINT"'IL y a une sortie a l'Ouest 

et a l'Est" 

253050 PRINT'un escalier est effondre et 

vous" 

23060 PRINT'"pouvez voir le salon." 

23070 RETURN 

24000 REM PIECE 15 

24010 CLS 

24020 PRINT"Vous etes dans un couloir." 
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24030 PRINT 

24040 PRINT"IL y a des sorties a 1 Ouest 
et " 

24050 PRINT'"au Sud.Il y a un escalier qu 
i descend" 

24060 PRINT'"a l'Est" 

24070 RETURN 

25000 REM PIECE 16 

23010 CLS 

25020 PRINT"Vous etes dans la chambre a 
coucher." 

25030 PRINT 

25040 PRINT"Dans un coin de la piece il 
y a un" 

25050 PRINT'"lit recouvert de draps de so 
ie." 

25040 PRINT'"au Nord-Est il y a un tas de 
vieux" 

25070 PRINT'"meubles casses." 

23080 PRINT'et dans le mur Est une porte 
close" 

253090 PRINT'il y a des sorties au Nord e 
t au Sud" 

25110 RETURN 

26000 REM PIECE 17 

26010 CLS 

26020 PRINT"Vous etes sur le balcon." 
260350 PRINT 

26040 PRINT'"Vous pouvez voir la cour d'’'e 
ntree" 

26050 PRINT'et par dessus les remparts l 
e village" 

26060 PRINT'"de Mythrad se dessiner a l'h 
orizon." 

26070 PRINT"La seule sortie est au Nord" 
26080 RETURN 

27000 REM PIECE 18 

27010 CLS 
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27020 PRINT'"Vous etes dans une piece env 
ahie par" 

27025 PRINT'"'des araignees." 

27030 PRINT 

27040 PRINT'"'IL y a un renfoncement dans 
un coin et" 

27050 PRINT"'IL y a un escalier qui monte 
vers le“ 

27960 PRINT"Sud" 

27065 PRINT"'IL y a aussi une sortie a 1” 
Est." 

27070 RETURN 

298000 REM PIECE 19 

28010 CLS 

28020 PRINT'"Vous etes dans la chapelle d 
u chateau. " 

28050 PRINT 

28040 PRINT'"IL y a 8 colonnes au dessus 
de vous." 

28050 PRINT'"Tout le long du mur se trouv 
e un" 

28060 PRINT'un rideau. Il y a une ouvert 
ure dans" 

28070 PRINT'Ile rideau vers le Nord et ve 
rs l'Est." 

28080 PRINT'"IL1 y a aussi un autel a l'Es 
+" 

28085 PRINT:PRINT"I1 y a un escalier qui 
descend vers le“ 

28086 PRINT'"Sud. " 

28090 RETURN 

29000 REM PIECE 20 

29010 CLS 

29020 PRINT"Vous etes derriere le rideau 


29030 PRINT 
29040 PRINT"Ceci n'est pas vraiment la p 
lace d'un" 
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29050 PRINT'"homme, plutot celle d'une so 
uris." 

29060 PRINT'"La seule sortie est au Sud." 
29070 RETURN 

30000 REM PIECE 21 

30010 CLS 

30020 PRINT'"Vous etes sur le toit" 

30030 PRINT 

30040 PRINT'"il y a un escalier derriere 
le rideau" 

50050 print'"il conduit sur le toit." 
30060 PRINT'"IL y a quatre drapeaux qui f 
lottent." 

30070 PRINT'"A l'Est il y a un escalier q 
ui descend" 

30080 PRINT'et au Sud, une ouverture ecl 
airee." 

30110 RETURN 

51000 REM PIECE 22 

31010 CLS 

351020 PRINT'"Vous avez ete transporte dan 
s le puit" 

31030 PRINT'"de 1 ‘Ogre. " 

31040 PRINT 

31050 PRINT"Vous avez atteint l'ultime c 
ombat." 

31060 PRINT"'PREPAREZ VOUS À COMBATTRE ! !" 
31070 RETURN 

40000 CA=1000+INT (RND (1) #1000) 

40010 PRINT'"IL1 rapporte ";:CA;" pieces d’° 
or." 

40020 MO=MO+CA 

40030 RETURN 

40100 PRINT'"Un Norgh sauvage vous attaqu 
e et" 

40110 PRINT'"plante ses dents dans votre 
cou“ 

40120 LO=INT (RND (1) #4) +1 


40130 
40140 
40150 
40160 
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IF J(2)>=0 THEN 40150 

RETURN 

J{3)=J(3)-LO 

PRINT'"vous perdez ";LO;" points de 


Dexterite" 


40170 
41000 
41010 
41020 
41030 
41040 
41050 
TT, ss" 

41060 
41070 
41080 
41090 
41100 
41110 
41120 
41130 
41150 
41140 
41170 
41180 
41190 
41200 
41210 
41220 
412350 
41240 
41300 
41310 
41320 
413550 
41332 
41340 
41350 


RETURN 

Z=1: MO0O=0: CH=0: PO=0: SR=0: SF=0 

DIM B(22,6) 

DIM M(9,4):DIM J(3) 

INPUT "DONNEZ VOTRE PRENOM "3; N$ 
PAPER 1:INK O:CLS 

PRINT'BONJOUR "3; N$:PRINT'"'UN INSTAN 


RESTORE 

FOR T=1 TO 22 

FOR Ti=i TO 6 

READ B(T,T1) 

NEXT TI:NEXT T 
MC1,1)=INT (RND (1) #9) +1 

FOR A=2 TO 5 

M(A,1)=INT (RND(1)#11)+10 

NEXT A:BB(1,6)=0 

FOR A=1 TO 9 

M(A,2)=INT (RND(1)#11)+10 
M(A,3)=INT (RND(1)#11)+10 
M(A,4)=INT (RND(1)#11)+10 

NEXT A 

J(1)=INT(RND(1)#11)+10 
J(2)=INT (RND(1)#11)+10 
J(3)=INT (RND(1)#11)+10 

RETURN 

DATA 2,0,6,0,0,0,3,1,2:25050 
DATA 0,2,15,4,0,0,5,0,3,0,0,0 
DATA 0O 
DATA 8 
DATA 9 
DATA © 
DATA 1 
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41360 DATA 0,0,0,13,0,7,0,16,53,18,0,5 

41370 DATA 15,17,0,0,0,8,16,0,0,0,0,0 

41380 DATA 0,19,15,0,0,2,20,18,21,0,0,0 

41390 DATA 0,19,0,0,0,1,0,22,19,0,0,0 

41400 DATA 0,0,0,0,0,9 

50000 PRINT"EN UTILISANT TOUTES VOS QUAL 
ITES, " 

50010 PRINT"VOUS AVEZ COMBATTU AVEC FOUG 

UE ET" 

50020 PRINT"COURAGE ET LES HABITANTS DE 

MYTHRAD" 

50030 PRINT"VOUS PORTENT À JAMAIS DANS 
LEURS" 

50040 PRINT"COEURS. " 


30060 


END 





1e 7 PP: 1 
FI (1 


ni 





Voici certainement le plus célèbre des jeux vidéo. Cette version pré- 
sente deux particularités : 

1. Il n'y a qu'un fantôme. 

2. Lorque vous mangez les pilules d'énergie, vous obtenez un 
bonus, mais vous ne pouvez pas manger le fantôme. 

Utilisez les touches de contrôle du curseur pour vous déplacer. 


30 RE=0:GOSUB 9000 

40 GOSUB 8000 

30 VX=19:H%=19:GOSUB 7000 

60 PLOT HX,VZ," " 

70 AF=KEYS 

80 A=DEEK (783) 

90 REM 

95 H1ZX=HZ: VIZ=VZ 

100 REM 

110 IF ÀA=48351 THEN HZ=H4-1:M$=""" 
120 IF 4=48255 THEN HXZ=H4+1:M#$="7" 
1350 IF A=48319 THEN VZ=V4+1:M$="£R" 
140 IF A=48375 THEN VL=V4-1:M$="#$" 
150 IF HZ<1 THEN HZ=38 

160 IF HX>358 THEN HZ=1 
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165 PLAY 0,1,1,10 

170 IF SCRN(HZ,V2)=44 THEN VZ=V1Z2:HZ=H1% 
:GOTO0 210 

180 IF SCRN(HZ,VZ2)=46 THEN SCZ=SCZ+1:C0% 

=C0Z+1 

190 IF SCRN(HZ,V4)=111 THEN GOSUB 1000 

200 IF SCRN(HZ,VZ)=43 THEN GOTO 5000 

210 PLOT HZ,VZ,MS 

220 PLOT 1,25, "SCORE: "+STR$(SC%X) 

250 PLOT X4,Z2,C$ 

240 Z14=2%: X14=X% 

245 IF M1Z2>3 THEN M1Z2=0 

250 IF M1%=0 THEN ZX=727%-1 

260 IF M1Z=1 THEN X2=X2-1 

270 IF M1Z=2 THEN ZX=2Z74+1 

280 IF M1Z=35 THEN XZ2=X2+1 

281 PLOT HZ,VZ,"+#" 

290 IF SCRN(XZ,2Z2)=44 THEN ZZ=Z1%: XZ=X1% 
:M1Z=INT (RND(1) #4) 

300 IF SCRN(XZ,Z%2)<40 AND SCRN(XZ,Z%)>33 
THEN GOTO 5000 

310 CF=CHRE (SCRN(XZ,Z2) ) 

320 PLOT XX,24,"+" 

330 IF LVX<1 THEN GOTO 2000 

340 IF COZX=TZ THEN COZ=0:GOTO 50 

350 G0TO 60 

1000 SCZ=SCZ+ (INT (RND (1) #20) ) +20 

1010 ZAP 

1020 RETURN 

2000 CLS 

2005 ZAP 

2010 FRINT,,,,"TERMINE" 

2020 PRINT 

2030 PRINT, ,,"SCORE: "3: SCZX 

2040 PRINT 

2050 PRINT 

2060 IF SCZÈRE THEN RE=SCX 

2079 PRINT, ,"RECORD ACTUEL:"RE 
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2080 PRINT 
2090 PRINT 

2100 PRINT,"TAPEZ UNE TOUCHE POUR JOUER" 
2110 IF KEY$<>"" THEN GOTO 2120 

2120 GET K$ 

2130 GOTO 40 

5000 PLOT X4,2Z4,"." 

5010 PLOT H4,VX,"#" 

5020 PLAY 1,0,1,10 

5030 WAIT 15 

5040 PLOT HZ,VZ4,"(" 

5050 PLAY 1,0,1,20 

5060 WAIT 20 

5070 PLOT HZ,VX,")" 

5080 PLAY 1,0,1,25 

5090 WAIT 30 

5100 PLOT HZ,VZ4,"*" 

5110 PLAY 1,0,1,30 

5120 WAIT 40 

5130 PLOT HZ,VZ4," " 

5140 PLAY 1,0,1,50 

5150 EXPLODE:WAIT 100 

5160 COZ=0: V4=12:HX=16: LUX=LVZ-1 

5170 IF LV#4<1 THEN 2000 

5180 GOTO 50 

7000 CLS:PAPER O:1INK INT(RND(1)#4)+3 
7005 PLOT 0,25,6 

7006 PING 

7010 PRINT", 5,475 999999992999990 
59399999" 


7020 PRINT'"ossssssoussnsss.es qgerssssssss 


7030 PRINT none 5999999999 5999999999 


7040 PRINT non 5900 999999999999 99 


7050 PRINT" ,0, qersssssssssssssssssssssess 


ss. 505" 
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7060 THIN irait es gessssssss 
gymmusss 


7070 PRINT” TITI 9799999999 999979999999 


7080 PRNTES Je yypgrssssspussusssasssenssessses 


7090 Au A NPPPEEE STE TETE ETETETE TELE TELE 


7100 PRINT" 77777 979979999999 999999999° 


7110 PRINT" 4,5 507 5 599999999999 99990 


7120 PRINT es non MT TON NINTNTNNII IS 


7130 ADS ENS CE CEE ESS NOTE ETS), 


7140 PRINT TITI 999799999999 99999999° 


7150 PRINT nn ne 5 099999999999 00e 


7160 PRINT", spgegesessenmsssumsunmsssumsesss 


7170 PRINT non 7999999 99999999 


399990 
7180 FRRMP ns EN press guesssesss 
guess 


7190 FOR" TI 99 979999999979 999 


39-999" 
7200 PRINT", pussmsssnmssssssssssssssss 
ss 303 


7210 CRE TITI 3999999999 999 19999999 


37-399 

7220 PRIME anne Annee gosssssuss 
ds sé ds 

7250 PRINT", 55000 099999999999 999 
19999393" 

7500 Fe LUE 

8000 M#$="7 


8010 
8020 
8030 
8040 
8050 
8040 
8070 
9000 
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C1%=8:M1%4=0 

SCZ=0 

Z%=7:X%=19 

LVZ=S 

CO07=0 

T2=312 

RETURN 

FOR U=(46080+(ASC("#")*x89)) TO (4608 


O+(ASC(",")*x8)+7) 


9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 


READ US:POKE U,US:NEXT U:RETURN 
DATA 0,30,63,63,63,63,63,30 
DATA 0,18,51,51,63,63,30,12 
DATA 0,30,63,60,56,60,63,30 
DATA 0,12,30,63,63,51,51,18 
DATA 0,30,63,15,7,15,63,30 
DATA 0,0,0,0,63,63,63,30 
DATA 0,0,0,0,8,12,12,30 

DATA 0,33,18,12,0,12,18,33 
DATA 0,12,30,56,63,63,63,42 
DATA 63,63,63,603,63,63,63,63 





CARRÉS 
MAGIQUES 


Ce programme génère des carrés magiques de quatre tailles diffé- 
rentes en utilisant la méthode «de La Loubère». Un «carré magique» 
est un carré de nombres dans lequel les sommes des nombres de cha- 
que rangée, de chaque colonne et des deux diagonales sont égales. 
L'ordinateur vous demande la taille du carré (entre 1 et 9) : seuls les 
nombres impairs sont acceptés. 


10 REM CARRE MAGIQUE 

20 REM DE NICK WILSON 

30 CLS:PAPER O:INK 3 

100 DIM M(47,47) 

110 INPUT "NOMBRE DE COLONNES/RANGEES" 3: N 
120 IF N<1 OR N>9 THEN 110 

125 CLS 

130 IF N/2=INT(N/2) THEN 110 

140 PLOT 1,0," NOMBRE MAGIQUE": PLOT 
1,1," RANGEES / COLONNES " 


150 REM START 
160 C1=0:C=INT (N/2) +1 
170 R=1 


42 


175 
180 
185 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
3530 
360 
570 
375 
380 
390 
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Ci=Ci+1 
M(R,C)=C1 

C$=STR$ (C1) 

PLOT C#3,R#2+1,C$ 

IF CI=INT(N"2) THEN 330 

IF C1/NC>INT(CI/N) THEN 240 
R=R+1 

GOTO 175 

C=C+1 

IF C<=N THEN 290 

C=1 

R=R-1 

GOTO 175 

R=R-1 

IF R>0 THEN 175 

R=N 

GOTO 175 

T=0 

FOR I=1 TON 

T=T+M(I91) 

NEXT I 

T$=STR$ (T) 

PLOT 1,0,T$ 

FOR A=1 TO 22: PRINT:NEXT:END 








Larguez vos bombes sur les immeubles pendant que votre avion 
traverse l'écran. Utilisez la barre d'espacement pour larguer vos bom- 
bes. Si vous désirez augmenter la difficulté, changez le nombre 10 ligne 


8020 


10 
20 
25 
26 
60 
70 
80 
70 


pour un nombre plus petit et le nombre 16 pour un plus grand. 


REM BLITZ 

REM PETER SHAW 1983 

GOSURB 9000 

GOSUB 8000 

FOR A=0O TO 26 

FOR B=i TO 34 

PLOT B,A," #$" 

IF SCRN(B+35,A)=39 OR SCRN(B+4,A)=40 T 


HEN GOTO 1000 


95 

100 
110 
120 
130 
140 
150 
160 
170 


PLOT B,A," #%" 

X$=KEYS 

IF X$=" “ THEN GOSUB 250 
PLAY 0,1,1,15 

NEXT B 

PLOT B,A,"  "* 

NEXT A 

PLOT 1,26,"##$" 

PRINT" BRAVO! !1" 
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180 PRINT 
190 PRINT"ATTERRISSAGE REUSSI!!" 

200 PRINT"VOUS AVEZ TUE ";A*B:;" PERSONNE 
S POUR" 

210 PRINT" SAUVER VOTRE VIE" 

220 PRINT 

230 PRINT" J'ESPERE QUE CELA NE PERTURBE 
RA PAS VOTRE SOMMEIL" 

240 END 

250 REM LANCEMENT BOMBE 

260 Bi=B 

270 FOR DR=A TO 25 

280 PLOT B,A," #+#" 

290 IF SCRN(B+3,A)=39 OR SCRN(B+4,A)=40 
THEN GOTO 1000 

300 PLOT B,A," #%" 

305 B=B+1:1F B>34 THEN B=1:A=A+1:PLOT 34 
,A-i," “ 

307 PLAY 0,1,1,10 

320 PLOT B1,DR," “:PLOT B1,DR+1,"&" 

340 NEXT DR 

360 PLOT B,A,"  ":PLOT B1,26," " 

370 RETURN 

999 STOP 

1000 EXPLODE 

1010 FOR L=A TO 26 

1020 PLOT B,L," #$" 

1030 EXPLODE:WAIT L 

1040 PLOT B,L,"  " 

1050 NEXT L 

1060 PRINT" SCORE "“;A#10+B#10 

1070 FOR A=0 TO 6 

1080 INK A:WAIT 10 

1090 NEXT A 

1100 IF KEY#<>"" THEN 1100 

1110 GET A$:RUN 

8000 CLS:PAPER O:INK INT (RND(1)#7)+1 
8010 FOR S=33 TO 4 STEP -1 


8020 
8030 
8040 
8050 
8060 
8070 
8080 
9000 
9010 
9020 
9030 
9040 
9050 
7060 
9070 
9080 
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HG=INT (RND(1)#10)+16 


PLOT 


S,H6, msn 


FOR K=H6+1 TO 26 


PLOT 
NEXT 
NEXT 


S,K," (" 
K 
S 


RETURN 
FOR U=46359 TO 46407 


READ 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


US:POKE U,US 

U: RETURN 
0,15,34,53,63,31,31,1 
0,48,32,4,52,60,52,4 
0,48,32,0,48,60,48,0 
0,18,12,30,30,12,0,0 
0,12,30,63,45,63,45,63 
45,63,45,63,45,63,45,63,45 





IR, 
AINIAIGIRYAMNTE S) 


EINIT 


ANAGRAMME 


Dans ce jeu, vous disposez de dix essais pour trouver l'anagramme. 


Ce programme utilise un dictionnaire de quarante mots. Il peut être 
étendu en modifiant le nombre de mots (42) dans la ligne 9000. 


REM ANAGRAMME 

REM PETER SHAW 1983 
GOSUR 97000'CHOIX MOT 
ZAP 

GOSUB 8000 

EXPLODE 

FOR A=1i TO 10 

GOSUB 7000 

GOSUB 6000 
PING:GOSUB 8000 

NEXT À 

REM HEIENEMEMEDEMEEME EME DEN MED DEEE DEEE IE 


100 REM PERDU 
110 CLS:PLOT 7,2,"LE MOT EST "+W$ 
120 A=i 


50 


130 
140 
150 
155 
160 
170 
3000 
9010 
3020 
90350 
9040 
3050 
93055 


3060 
9070 
6000 
6010 
7000 
7010 
7020 
7030 
7040 
7050 
70860 
8000 
8010 
8020 
8030 


JEUX EN BASIC SUR ORIC 


REPEAT 

PLOT 12,10,CHR$# (A)+"PERDU!!" 
=A+1:1F A=8 THEN A=1 

WAIT 4:PLAY 1,0,1,100:SOUND 1,100,A 


UNTIL KEY#<>"" 
PLAY 0,0,0,0:RUN 

REM GAGNE 

CLS 

A=1 

REPEAT 

PLOT 12,10,CHR#(A)+"BRAVO!!" 


A=A+1:IF A=9 THEN A=1 
WAIT 4:PLAY 1,0,1,100:SOUND 1,100,A 


UNTIL KEY$<>"" 
PLAY 0,0,0,0:RUN 


IF G$=W$ THEN 5000 
RETURN 

CLS 

PRINT"'ESSAI ";A 
PRINT 


PRINT'VOTRE ANAGRAMME EST ";5$ 
PRINT | 
INPUT'TAPEZ LE MOT ";G$ 

RETURN 

L=LEN (W$) 

S$=LEFT$ (" ",L) 
FOR I=i TO L 

R= INT CRND (1) #L) +1 


8040 IF MID#(S#,R,1)>" " THEN GOTO 8030 


8050 


S$=LEFTS(S$,R—-1) +MID#(W$,1,1)+MIDS#( 


S$,R+1) 


8060 


NEXT I 


8070 RETURN 


9000 


FOR A=1 TO INT(RND(1)#42)+1 


9010 READ W# 


9020 


NEXT À 


9030 RETURN 


9040 DATA 
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PROGRAMME , SOFTWARE , BASIC , HARDW 


ARE, AFFICHAGE 


9050 DATA 
MPRIMANTE 
9040 DATA 
UCE 

9070 DATA 
9080 DATA 
EUR 

9090 DATA 
HINE 

9100 DATA 


ORDINATEUR, GRAPHIQUE , CLAVIER, I 
JEUX ,SILICONE , ARCADE , MEMOIRE ,P 


ASSEMBLEUR , INTERFACE , VIDEO 
DIGITAL,PARALLELE ,DISQUE ,MONIT 


PROCESSEUR , SERIE, TRANSFERT , MAC 


LANGUAGE , CASSETTE ,PRISME , ACCES 


,ALEATOIRE 


9110 DATA 
ï 

9120 DATA 
9130 DATA 
ECTER 


CODEUR , COMPILER, ADAPTER,CIRCUI 


PASCAL ,COBOL + ECRAN,FORTRAN 
LISTING,ANAGRAMME , EDITEUR , CONN 








La cantinière de l'école a encore oublié les saucisses sur le feu. Le 
couvercle a sauté et toutes les saucisses sont projetées dans le réfec- 
toire. Vous avez 99 secondes pour en ramasser le plus possipie. Utili- 
sez les touches <E> pour haut et <F> pour bas 


10 REM LE SAUVETAGE DES SAUCISSES 
20 REM DE PETER SHAW 1983 

30 REM IDEE DE GARY STONE 

40 RE=0:GOSUB 9000:DIM F(5) 

45 GOSUB 8000 

50 PLOT 1,0,"SCORE :"+STR$ (SC) 

60 PLOT 1,V," " 

70 IF KEY$="F" AND V<25 THEN V=V+1 
75 PLAY 0,1,1,10 

76 PLAY 1,0,1,10 

80 IF SCRN(3,V)<>32 THEN GOSUB 1000 
8S IF KEY$="E" AND V>0 THEN V=V-1 


54 


JEUX EN BASIC SUR ORIC 


90 PLOT 1,V,"Z4$" 


100 
110 
HEN 


120 
130 
140 
150 
160 


1000 
1010 
1020 
1030 
1040 
2000 
2001 
2010 
2020 
2030 
2040 
2050 


FOR À=1 TO 5 
F(A)=F(A)-INT(RND(1)#2):1F F(A)<2 T 
PLOT 1,4A%5," “"s3F(A)=56 


PLOT F(A),AxS,"## " 
NEXT À 
PLOT 25,0,"TEMPS "+STR$(INT(TM))+" " 
TM=TM-,5:1F TM<O THEN 2000 
GOTO 60 

SC=ScC+2 

PLOT 35,4," de 

F(V/35)=35 

PLOT 1,0,"SCORE :"+STR#$(SC)+" " 
RETURN 

CLS 

WAIT 50 

PRINT'"##æ#x TERMINE ###34#" 
PRINT 

PRINT" SCORE :";SC 

PRINT 

PRINT 


2060 IF SC>RE THEN RE=SC 


2070 


PRINT"'RECORD ACTUEL "3RE 


2080 PRINT 


2090 
2100 


PRINT 
PRINT"'TAPEZ UNE TOUCHE POUR JOUER" 


2110 IF KEY$<>"" THEN GOTO 2110 


2120 


GET A$:CLS 


2130 GOTO 45 


8000 
8010 


REM 
PAPER O:INK 3:CLS 


8020 V=15 


8030 


FOR À=1 TO S:F(A)=3S:NEXT A 


8040 SC=0 


8050 
8040 
8070 


TM=99 
RETURN 
REM 
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9000 FOR A=(46080+(ASC("#")#8)) TO (4608 
O+ (ASC ("S&") #8) +7) 

9010 READ US:POKE A,US:NEXT A:RETURN 
9020 DATA 0,0,30,63,63,15,0,0 

9030 DATA 0,0,30,63,63,60,0,0 

9040 DATA 0,1,26,62,62,26,1,0 

9050 DATA 0,56,6,0,0,6,56,0 













AUTOROUTE 


Traverser l'autoroute à l'heure de pointe n'est une partie de plaisir 
pour personne, mais c'est pourtant le but de ce jeu. Vous devez éviter 
deux files de voitures roulant en sens inverse ; si vous êtes écrasé par 
un véhicule, vous perdez l’une de vos six vies. Pour chaque piéton arrivé 
sain et sauf, vous gagnez dix points. Utilisez la barre d’espacement 
pour faire traverser votre piéton. Il Y a un record à battre ! 


10 REM AUTOROUTE 

20 REM PETER SHAW 1983 

30 RE=0:PRINT CHR$ (6) 

40 GOSUB 9000 

50 GOSUB 8000 

60 V=14 

70 H=19 

80 GOSUB 7000 

90 PLOT H,V," " 

100 IF KEY$=" " THEN V=V-1 
110 PLAY 0,1,1,10 

140 PLOT 1,4,A$:PLOT 1,6,B$ 
150 PLOT 1,10,B#:PLOT 1,12,4$ 


58 JEUX EN BASIC SUR ORIC 


160 IF SCRN(H,V)<>32 THEN 1000 
170 PLOT H,V,"#" 

180 L1$=LEFTS(A$, 1) : R1$=RIGHTS (A$,37) 
190 L2$=LEFT#S(B$,37) :R2$=RIGHTS (B$, 1) 
200 A$=R1$+L1$: B#=R2$+L2$ 

210 IF V=2 THEN 2000 

220 GOTO 90 

1000 EXPLODE:WAIT 50 

1010 IFML>0O THEN ML=ML-1:G0TO 60 

1020 IF SCDRE THEN RE=SC 

1030 PLOT 6,20,"TAPEZ UNE TOUCHE POUR JO 
UER" 

1040 GET A$ 

1050 GOTO 50 

2000 PING:WAIT 50 

2010 SC=SC+10 

2020 GOTO 60 

7000 CLS:PAPER O:INK 7 

7010 PRINT,"RECORD "3RE,"SCORE ":;SC 
7020 PLOT 0,4,CHR#$(1)+A$ 

7030 PLOT 0,6,CHR$ (2) +B$ 

7040 PLOT 0,10,CHR$ (5) +B$ 

7050 PLOT 0,12,CHR$ (6) +A$ 

7070 PLOT H,V,"#" 

7080 FOR A=1 TO ML 

7090 PLOT A,1,"#" 

7100 NEXT A 

7110 RETURN 

7120 REM 

8000 PAPER O:INK 7 

8010 SC=0 

8020 B$="#7 SL #4 SL  S$4 54 
8030 A$=""& ‘& ‘& ‘& ‘& 
°& "” 

8040 ML=S5 

8050 RETURN 

8060 REM 


AUTOROUTE 59 





9000 FOR A=(46080+(ASC("#")#8)) TO (4608 
O+(ASC(""")#8)+7) 

9010 READ US:POKE A,US:NEXT:RETURN 

9020 DATA 12,12,30,45,12,18,33,0 

9030 DATA 0,0,0,7,15,63,12,0 

9040 DATA 0,0,0,48,62,62,6,0 

9050 DATA 0,0,0,56,60,63,6,0 

9060 DATA 0,0,0,3,31,63,24,0 








CHASSE AU 
ANARD 


Dans ce jeu de chasse au canard, vous devez réussir à abattre les” 


- canards qui passent au-dessus de vous. Vous disposez de vingt car- 
touches et lorsque vous abattez une rangée complète de canards, vous 
obtenez un bonus. Utilisez les touches <E > et <P> pour vous dépla- 
cer à gauche et à droite et la barre d'espacement pour tirer. 


REM CHASSE AU CANARD 

REM Peter Shaw 1993 

GOSUB 9000:RE=0 

GOSUR 8000'Variables 

PLOT 0,22,CHR$ (6) +M$ 

REPEAT 

PLOT1,1,7$ 

PLOT 1,5,B# 

PLOT V,20," ‘°() " 

D=DEEK (7835) 

IF D=45310 THEN 110 

IF D=483551 AND V>2 THEN V=V-1 
IF D=48255 AND V<33 THEN V=Vv+i 


100 IF D=48582 THEN GOSUB 300 
110 IF T$=A$THENGOSUB2000 
120 IF B$=ASTHENGOSUB 3000 
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130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
295 
260 
270 
300 
505 
306 
307 
3510 
320 
330 
340 
345 
330 
3560 
370 
380 
400 


410 
O0 

415 
420 
450 
440 
450 


JEUX EN BASIC SUR ORIC 


X#=LEFT#S(T#H,1)2:Y#=RIGHTS(T#S,37) 
U$=RIGHTS# (B$,1) =: V#=LEFT#(B#$,37) 
T$=Y$+X$ 

B$=U$+VS 

UNTIL MI=0 

FOR A=1 TO S:EXPLODE: WAIT A#2:NEXT 
CLS 

PRINT'"SCORE: "3: GC 

PRINT 

IF SC2RE THEN RE=SC 


PRINT: PRINT:PRINT"RECORD ACTUEL:"3RE 
PRINT:PRINT 

PRINT"'TAPEZ UNE TOUCHE" 

IF KEY#<>"" THEN GOTO 255 

GET À$ 

GOTO 40 


LET B=V+2:ZAP:MI=MI-1 
PLAY 0,1,2,100 
MS=LEFTS (M$, MI) 

PLOT 1,22,M$+" " 

FOR M=19 TO O STEP -1 
FLOT B,M,"*" 

PLOT 1,1,7$ 

FLOT 1,3,B$ 

PLOT V,20," ‘() " 
D=DEEK (783) 


IF D=45310 THEN 400 

IF D=48351 AND V>2 THEN V=V-1 

IF D=48255 AND V<33 THEN V=V+i 

IF M=3 AND MID#(B#,B,1)<€2>" " THEN 50 
IF M=1 AND MID#(T#,B,1)<>" " THEN 60 


SOUND 4,100, INT (M/2) 

PLOT B,M," " 
XS=LEFT#S(T#, 1): Y#=RIGHTS(T#,37) 
US=RIGHTS# (B#, 1) : V#=LEFT#(B$,37) 
T$=Y$+XS$ 
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460 B+F=UF+V# 


470 NEXT M 

475 PLAY 0,0,0,0 

480 RETURN 

999 END 

2000 T#="Z28&  Z& 4% 48 48 4% 


2010 PLOT 1,1,A$ 

2020 PLOT 16,10,"BONUS 100" 

2030 PING 

2040 WAIT 100 

2050 FLOT 16,10," " 

2060 SC=5C+100 

2070 RETURN 

3000 B$="##$  #$ ## #5 #5 #$ 
3010 PLOT 1,3,A# 

3020 PLOT 16,10,"BONUS 50" 

3030 PING 

3040 WAIT 100 

3050 PLOT 16,10," " 

3060 SC=5C+50 

3070 RETURN 

5000 EXPLODE 

5010 B#=LEFT$(B$, (B-3) )+" "+RIGHTS ( 
B$, (38-B)-3) 

5015 SC=SC+10 

5020 RETURN 

6000 EXPLODE 

6010 TS#=LEFT#(TS, (B-3))+" "+RIGHTS ( 
T$, (38-B) -3) 

6015 SC=SC+20 

020 RETURN 

8000 PAPER O:INK 3:CLS 

8010 A$=" 


8020 B$="##F #+ #$ #$ #$ #$ 
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8030 


8040 
8050 
8070 
8100 
9000 
9001 
9002 
9010 
9020 
9030 
9040 
9048 
90860 
9070 
9080 
9090 
9100 


JEUX EN BASIC SUR ORIC 


T$="2R 2% 2% ZE 2% L& 


SC=0:V=19:MI=20 

M$= EE A ee eo ee de de 
POKE 48842,4 

RETURN 

RESTORE 

PRINTCHRS (17) 

PRINT CHR$ (6) 

FOR 4=46360 TO 46415 

READ US:POKE A,US 

NEXT A:RETURN 

DATA 0,62,15,7,15,31,28,48 
DATA 0,0,28,62,32,0,0,0 
DATA 0,0,14,31,1,0,0,0 
DATA 0,31,60,56,60,62,14,3 
DATA 0,0,1,3,7,15,31,63 
DATA 0,12,63,63,63,63,63,63 
DATA 0,0,32,48,56,60,62,63 
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Dans ce jeu, vous jouez contre l'ordinateur. Vous vous déplacez 
à l'intérieur de l'écran en laissant une trace derrière vous. Si vous tou- 
chez la trace de l'ordinateur ou le côté de l'écran, ou si vous coupez 
votre propre trace, l'ordinateur marque un point. Utilisez les touches 
de déplacement du curseur pour contrôler vos mouvements. 


10 REM TRACE 

20 RE=0 

30 GOSUB 8000 

40 A$=KEYS 

50 IF A$S>" " OR AS<CHR$S(S) THEN 70 
60 M=ASC(A#) : J=0 

70 Hi=Hi1+(M=11)-(M=10) 

80 H2=H2+(M=8) —- (M=9) 

90 B$=CHRS$ (SCRN (H2,H1) ) 

100 PLAY 0,1,1,5 

110 IF B#<>" " THEN GOSUB 2000 
120 J=1 

130 PLOT H2,H1,"#" 

140 U=0 

150 IF U=S THEN GOSUB 1000 

160 C3S=C1:0C4=02 


68 JEUX EN BASIC SUR ORIC 


170 C1=C1+(N=11)-—(N=10) 
180 C2=C2+ (N=8) — (N=9) 

190 C$=CHRS# (SCRN (C2, C1) ) 

200 IF C#<>" " THEN N=U+8:C1=C3:C2=C4: U= 
U+1:GOTO 150 

220 PLOT C2,C1,"+" 

240 GOTO 40 

1000 EXPLODE 

1010 HS=HS+1 

1020 CLS 

1030 PRINT"SCORE: ORDINATEUR ":0S,"HUMAI 
N ";HS 

1040 PRINT = 
1050 FOR L=1 TO 20 
1060 PRINT"! 


1070 NEXT L 


1080 C1=10:C2=10 
1100 IF HS=10 THEN GOTO 3000 

1185 H1=10:H2=20 

1100 IF HS=10 THEN ZAP 3000 

1110 RETURN 

2000 EXPLODE 

2010 0S=-0S+1: 

2020 CLS 

2030 PRINT"SCORE: ORDINATEUR ":0S, "HUMAI 
N ";:HS 

2040 PRINT "= 


2050 FOR L=1i TO 20 
2060 PRINT": 


2070 NEXT L 
2075 PRINT" 


2080 
2090 
2100 
2110 
3000 
3010 
35020 
35030 
3040 
3045 
3050 
8000 
8010 
8020 
8030 
8040 
8050 


TRACE 69 


C1=10:C2=10 


H1=10:H2=20 

IF 0S=10 THEN GOTO 3000 

RETURN 

CLS 

IF O0S=10 THEN PRINT"'JE GAGNE!!" 

IF HS=10 THEN PRINT"VOUS GAGNEZ!!" 
PRINT:=PRINT:PRINT:PRINT 


PRINT"'TAPEZ UNE TOUCHE" 

IF KEY$<>"" THEN 3045 

GET À$ 

J=i:C1=10:C2=10 

H1=10:H2=20 

H5=0: 0S=0 

PAPER O:INK INT(RND(1)#6)+1 

CLS 

PRINT"SCORE: ORDINATEUR ";0S, "HUMAI 


N ":HS 


8040 


FOR L=1 TO 20 
PRINT": 


M=9: N=8 
RETURN 





Dans ce jeu vous jouez contre l'ordinateur. Des bombes apparais- 
sent sur l'écran, toutes sont désarmorcées sauf une, la dernière. |! y 
a une limite au nombre de bombes que vous retirez à chaque fois. Le 
perdant est celui qui est obligé de prendre la dernière bombe. L'ordi- 
nateur est très fort à ce jeu, mais avec un peu de pratique vous réussi- 
rez à gagner quelques parties. 


20 REM NIM 

30 REM ALEX GOLLNER 

40 CLS:=:PAPER 4:1INK 7 

90 PRINT 

60 E=0 

70 F=0 

80 M=0 

90 L=0 

100 Z=INT (RND(1)#20)+10 

110 H=INT (RND(1)#3 )+3 

120 PRINT 

1350 IF M=0O THEN PRINT"BOMBE(S) REST:"37: 
PRINT"VOUS POUVEZ EN PRENDR 

E "sH 

140 1F E>0 AND M=O0 THEN PRINT"VOUS EN PR 
ENEZ "53E;" J'EN PRENDS ";0 
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150 
160 
170 
180 
190 
200 
210 
220 
2350 
240 
230 
260 
270 
280 
290 
295 
500 
310 
320 
330 
335 
340 
345 
350 
360 


JEUX EN BASIC SUR ORIC 


PRINT 

FOR K=1i TO Z 

PRINT"# "3; 

IF RND(1)<.35 THENPRINT 

NEXT 

PRINT 

PRINT 

IF M=1 THENPRINT "VOUS GAGNEZ! "; 


IF M=2 THENPRINT "JE GAGNE! "; 
IF M30 THEN 220 

PRINT 

PRINT"'COMBIEN EN "; 

INPUT "PRENEZ VOUS "3;E 

IF E<1i OR E>HTHEN 260 


Z=2-E 

CH=0 

IF Z30 THEN 330 

M=2 

GOTO 400 
Q=Z-1-INT((Z-1)/(H+1))#(H+1) 


CH=CH+1 

IF G=0 THEN G=RND(1)#H 

IF CH>30 THEN Z=0:G0OTO 390 

IF @>Z THEN 330 

IF Z>E+2 AND RND(1)<.5 THEN G=G+INT 


(RND(1)-.5) 


370 
375 
380 
390 
400 
410 


IF G>H OR G<1 THEN 330 
G=INT (0) 

Z=Zz-0 

IF Z=0 THEN M=1 

CLS 

GOTO 120 











A l'origine, ce jeu se pratique avec les mains. Les deux joueurs ont 
les mains derrière le dos et doivent les sortir ensemble en mimant l’ob- 
jet choisi. Ils ont le choix entre le rocher, les ciseaux, et le papier. Les 
ciseaux coupent le papier, le rocher casse les ciseaux, le papier couvre 
le rocher. Lorsque vous aurez choisi, tapez l'initiale de l’objet ; < C> 
pour ciseaux, <R2> pour rocher, < P> pour papier. Le gagnant est 
celui qui totalise dix points. 


10 REM ROCHER, PAPIER, CISEAUX 

20 CLS” PETER SHAW *+ 

30 PAPER O: INK 3 

40 A=INT(RND{1) #3): PING 

50 PLOT 12,2, "ROCHER-CISEAUX-PAPIER" 
99 PLOT 6,4,"HUMAIN "+STR$ (HS) 

56 PLOT 29,4,"MOI "+STR$ (05) 

60 GET A$:ZAP:FOR P=0 TO 7:INK P:WAIT 4: 
NEXT PF 

65 CLS 

70 IF A$="R" THEN V=0 

80 IF A$="P" THEN V=1 

90 IF A$="C" THEN V=2 


76 JEUX EN BASIC SUR ORIC 


100 PRINT:PRINT:=PRINT:PRINT:PRINT:PRINT: 
PRINT 
110 PRINT'J'AI "; 
120 IF A=0O THEN PRINT'"'UN ROCHER" 
130 IF A=1 THEN PRINT"DU PAPIER" 
140 IF À=2 THEN PRINT'"'DES CISEAUX" 
150 PRINT:=PRINT:PRINT 
160 PRINT"VOUS AVEZ "; 
170 IF V=O THEN PRINT'"'UN ROCHER" 
180 IF V=1 THEN PRINT"DU PAPIER" 
190 IF V=2 THEN PRINT"'DES CISEAUX" 
200 PRINT:PRINT:PRINT:SHOOT 
210 IF V=A THEN PRINT"'EGALITE" 
220 IF V=O AND À=1 THEN PRINT"'PAPIER COU 
VRE ROCHER JE GAGNE" : 0S=05S+ 
1 
230 IF V=O AND A=2 THEN PRINT"'ROCHER CAS 
SE CISEAUX VOUS GAGNEZ" :HS= 
HS+1 
240 IF V=1 AND A=0O THEN PRINT"'PAPIER COU 
VRE ROCHER VOUS GAGNEZ":HS= 
HS+1 
250 IF V=1 AND A=2 THEN PRINT"'CISEAUX CO 
UPENT PAPIER JE GAGNE":0S=0 
S+1 
260 IF V=2 AND ÀA=0O THEN PRINT"ROCHER CAS 
SE CISEAUX JE GAGNE":0S=0S+ 
1 
270 IF V=2 AND A=1 THEN PRINT"'CISEAUX CO 
UPENT PAPIER VOUS GAGNEZ":H 
=HS+1 
280 PLOT 15,25,"TAPEZ UNE TOUCHE" 
290 EXPLODE:WAIT 30 
295 IF HS=10 OR 0S=10 THEN 310 
300 GOTO 30 
310 CLS 
3520 IF HS=10 THEN PING:PRINT"BRAVO VOUS 
GAGNEZ" 


ROCHER, CISEAUX, PAPIERS 77 


330 IF 0S=10 THEN ZAP:PRINT"JE GAGNE ENC 
ORE" 

3540 PRINT:PRINT:PRINT 

3545 WAIT 20:EXPLODE 

350 END 








Ce jeu est une variation du jeu de conduite bien connu. Vous voyez 
votre automobile en trois dimensions et la route en perspective. La route 
défile devant vos yeux et vous devez éviter de sortir sur les bas côtés. 
Votre score dépend du temps passé sur la route. Utilisez les touche 

<R>, <U> et <N> pour diriger votre auto. 


10 REM 3D 

20 GOSUB 9000 

25 PRINT CHR$ (6) 

350 P=127:SC=0 

40 PAPER O:INK 3 

50 HIRES:GOSUB 200 

55 PATTERN 255 

60 CURSET 0,2,1:DRAW 238,0,1 

80 CLS:PRINT"'SCORE "3: SC 

84 PLAY 0,2,3,100 

85 PATTERN 17 

90 CURSETP-10,3,0:DRAW-170+(P-20), 195,1 
100 CURSETP+10,3,0:DRAW- 70+(P-20), 195, 
1 

105 IF P<109 OR P>145 THEN GOTO 1000 

110 CURSETP-10,3,0:DRAW-170+(P-20), 195, 
0 

120 CURSETP+10,3,0:DRAW-70+(P-20), 195,0 
130 KS=KEYS 


80 JEUX EN BASIC SUR ORIC 
140 IF K$<>""THEN IF ASC(K$)=8 THEN LET 
P=P+8 

150 IF K$<>""THEN IF ASC(K$)=9 THEN LET 
P=P-8 

160 P=P+INT (RND(12#15)-7.5 

170 SC=SC+1 

180 GOTO 80 

190 END 

200 CURSET 115,100,0 

210 CHAR 35,0,1 

215 CURSET 121,100,0 

220 CHAR 36,0,1 

230 CURSET 115,108,0 

240 CHAR 37,0,1 

250 CURSET 121,108,0 

260 CHAR 38,0,1 

270 RETURN 

1000 PLAY 0,7,1,2000 

1010 WAIT 100 

1020 PLAYO,0,0,0 

1030 PRINT" TAPEZ UNE TOUCHE POUR JO 
UER" 

1035 IF KEY$<>"" THEN GOTO 1035 

1040 IF KEY$="" THEN GOTO 1040 

1158 GOTO30 

9000 FOR US=46360 TO 46360+(4%8) 


9010 READ ER:POKE US,ER 


9020 


NEXT US: RETURN 


9030 DATA 0,0,0,0,0,5,11,2 


9040 
9050 
9060 
9070 


DATA 0,0,0,0,0,40,52,16 
DATA 7,63,47,40,8,7,0,0 
DATA 56,63,61,5,4,56,0,0 
DATA 0,0,0,0,0,0,0,0,0 








Dans ce jeu, vous devez arriver à faire rebondir la balle tout autour 
de l'écran. Vous marquez des points lorsque vous réussissez à frapper 
la balle avec votre raquette (le carré en bas de l'écran). Vous perdez 
l’une de vos trois vies si la balle heurte la raquette sur l’un de ses côtés 
verticaux. Utilisez les touches de contrôle du curseur pour déplacer 
votre raquette. 


10 REM SQUASH 

20 REM DE PETER SHAW 

30 RE=O0: PRINT CHR$# (6) ; CHR# (17) 

40 GOSUB 8000 

50 PLOT 20,26,"VIE(S) REST. "+STR#(VI) 
60 PLOT V,24," " 

70 AF=KEYS 

80 IF A$="" THEN GOTO 110 

90 IF ASC(A$)=8 AND V>O THEN V=V-1 

100 IF ASC(A$)=9 AND V<38 THEN V=V+1 

110 PLOT V,24,CHR#(127) 

120 PLOT B,A," 

130 A=A+M:IF A>23 OR A<1 THEN PING:M=-M: 
PLOT B+N,A,"o" 

140 B=B+N:IF B>37 OR B<1 THEN PING:N=-N: 
PLOT B,A,"o" 

145 PLOT B,A,"o" 
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150 IF ÀA=23 AND B=V THEN PLAY 1,0,2,30:5S 
C=SC+2:M=-M: PLOT B,A,'"o" 

160 IF A=24 AND B=V THEN GOSUB 500 

170 PLOT 1,26,CHR$ (6) +"SCORE: "+STRS$ (SC) 
180 GOTO 60 

900 VI=VI-I 

940 PLOT 20,26,CHR$(6)+"VIE(S) REST. "+5 
TR#(VI) 

9320 FOR B=1 TO 10 

330 PLAY 1,0,2,B#10 

940 NEXT 

990 IF VI=O0 THEN 400 

960 A=INT (RND(1)#5) +2: B=INT (RND (1) #35) +2 
970 RETURN 

600 PRINT:PRINT:PRINT:PRINT,,,,"TERMINE" 
610 PRINT:PRINT'"score ":;:SC 

620 IF SC>RE THEN RE=SC 

630 PRINT:PRINT,,"RECORD ACTUEL "3RE 

640 IF KEY$<>"" THEN 640 

650 PRINT:PRINT,"TAPEZ UNE TOUCHE POUR J 
OUER" 

660 GET A$ 

670 GOTO 40 

8000 PAPER 1:INK 7:CLS 

8005 PLOT 0,26,16:PLOT 38,26,17 

8006 PLOT 1,25," ——— 
8010 V=15:A=INT (RND(1) #5) +2:B=INT (RND(1) 
#35) +2 

8020 SC=0:M=1: N=1i 

8050 C=6: VI=S 

8040 RETURN 
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